home *** CD-ROM | disk | FTP | other *** search
/ MusicScapes Professional / MusicScapes Professional (Wayzata Technology)(1381)(1995).bin / elements / rock / 00017_Script_17 < prev    next >
Text File  |  1994-11-22  |  414b  |  16 lines
  1. on exitFrame
  2.   global lastSoundLevel
  3.   global oldSoundLevel
  4.   installMenu 16
  5.   put the soundLevel into lastSoundLevel
  6.   set lastSoundLevel1 to lastSoundLevel + 1
  7.   set the checkMark of menuItem lastSoundLevel1 of menu "Volume" to TRUE
  8. updateStage
  9.   if soundBusy (1) then continue
  10.   else play done
  11.   if the controlDown and the key = "." then go to frame "Leave"
  12.   --else continue
  13.   end if
  14. end if
  15.  
  16. end